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Warmer 




movlw 0x20 

xorwf Tcontrol.f ;flip warmer status 

btfss Tcontrol.WarmON 
goto FinishWarm 



WarmUp 

incf CT1,f 

movlw d'90' ; set timer for 90 minutes 

movwf WarmTime 
; change display line 2 and show 

WarmChange 

call readTC77 

call Warm_Message 

call displayjcd 

bsf BkLt 

movlw d'60' 

goto Vtime 

FinishWarm 

decf CT1 ,f 
clrf WarmTime 
goto WarmChange 



CheckWarm 

btfss Tcontrol.WarmON ;check if warm on 

return ;exit if not 

decfszWarmTime.f ;reduce time to go by one minute 

return 

goto Warmer ;if zero time, reset 



KillWarm 
btfsc 
decf 
bcf 
clrf 
return 



Tcontrol.WarmON 
CT1,f 

Tcontrol.WarmON 
WarmTime 



;check if warm on 

;if Warm was on, decrease current set 
;ensure Warm status is off 
;ensure Warm timer is zero 
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TRANSMIT / 
; Send 1 .5ms Synch Pulse 

bsf TrOut ;set output line high 

movlw d'250' 

movwf Timex 

call Tdelay ;six times value in Timex 

call SendLow ;set output low for 1/2 ms 

; Send Data 

ExamHeat 

Tcontrol,HeatON ;check for call for heat 
SendHeat 
SendZero 
ExamAC 



btfsc 
goto 
call 
goto 

SendHeat 
call 

ExamAC 

btfsc 
goto 
call 
goto 

SendCool 
call 
goto 

ExamFan 

btfsc 
goto 
goto 

SendFan 

SendOne 
call 



SendOne 

Tcontrol,CoolON 
SendCool 
SendZero 
ExamFan 

SendOne 
SendFan 

Tmode,FanMode 

SendFan 

SendZero 



;check for call for A/C 
;If calling, send cool signal 



;If cool call, also turn fan on. 
;check for call for fan 



bsf TrOut ;set output line high 

HalfMs ;send synch phase of pulse 



-send .5 ms high followed by ,5 ms low 



SendZero bsf 
Sendmore call 
SendLow bcf 
HalfMs movlw 

movwf Timex 
Tdelay nop 

goto Tdly 
Tdly decfsz Timex,f 

goto Tdelay ; 

return 



TrOut ;set output line high 
HalfMs ;maintain line level for half ms 

TrOut ;set output line low 
d'83' ;set wait period for 1/2 ms 



;burn a cycle for correct timing 
2 more microseconds 

;count down to correct time 



1 

IN 
2N 
IN 
2N 
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MAINclrf 
btfss 
goto 



(p/lO 

-FINDDATA routine: reads data from upper unit- 



DataBuf 

Input 

MAIN 



FINDDATA 

movlw 3 
movwfBitCount 



;test com line for high level 
;must find high level to start 



;set up number of bits to get 



GetaBit 



cirt 


Futil 




can 


HiTime 


;look for start pulse 


aauwi 


Futil,w 


;check return code 


DIISC 


STATUS,2 


;abnormal return code is zero, which sets carry 


goto 


MAIN 


;start fresh if time exceeded 


mu VI w 


d'128' 


;see if pulse is at least 1280us 


oUUWl 


Timex,w 




ht f<:Q 
UUob 


STATUS,0 


;carry set means pulse > 1 .28 ms 




MAIN 


;invalid start pulse if < 1.28 ms 


movlw 


d'172' 


;see if pulse is under 1720us 


bUOWI 


Timex,w 






STATUS,0 


;carry set means pulse > 1 .72 ms 


onto 


MAIN 


;invalid start pulse if > 1.72 ms 






VALID START FOUND -1.5 ms 


t 

L 


call LoTime ;check pre-data interval 


ClUUWl 


Futil,w 


;check return code 




STATUS,2 


;abnormal return code is zero, which sets carry 


onto 


MAIN 


;start fresh if time exceeded 


movlw 


d'40' 


;see if pulse is at least 400us 


subwf 


Timex,w 




btfss 


STATUS,0 


;carry set means pulse > 0.4 ms 


goto 


MAIN 


;invalid start pulse if < 0.4 ms 


movlw 


d'60' 


;see if pulse is under 600us 


subwf 


Timex,w 




btfsc 


STATUS,0 


;carry set means pulse > 0.6 ms 


goto 


MAIN 


;invalid start pulse if > 0.4 ms 




VALID INTERVAL FOUND 


call 


HiTime 


;measure data pulse 


addwf 


Futil,w 


;check return code 


btfsc 


STATUS,2 


;abnormal return code is zero, which sets carry 


goto 


MAIN 


;start fresh if time exceeded 


movlw 


d'40 1 


;see if pulse is at least 400us 


subwf 


Timex,w 




btfss 


STATUS,0 


;carry set means pulse > 0.4 ms 


goto 


MAIN 


;invalid data pulse if < 0.4 ms 
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movlw d'60' 
subwf Timex,w 
btfss STATUS.O 
goto SetZero 

movlw d'85' 
subwf Timex.w 
btfss STATUS.O 
goto MAIN 

movlw d'l 15' 
subwf Timex,w 
btfss STATUS.O 
goto SetOne 
goto MAIN 



7/io 

;see if data pulse is under 600us 

;carry set means data > 0.6 ms 

;data bit is zero if .6ms > data > 0.4 ms 

;see if pulse is at least 850us 

;carry set means pulse > 0.85 ms 
;invalid data pulse if < 0.85 ms 

data is at least 850us 
;see if data pulse is under 1 1 50us 

;carry set means data > 1 . 1 50ms 

;data bit is one if 1 . 1 5 ms > data > 0.85 ms 

;data is invalid if over 1 . 1 5 ms 



SetZero 



rlf DataBuf,f ;shift bits left one place 

bcf DataBuf,0 ;place the current bit 

decfsz BitCount,f ;update number of bits to go 
goto GetaBit ;and get the next one 

goto EndData ;but Wrap up if done 



SetOne 



rlf 
bsf 



DataBuf,f ;shift bits left one place 

DataBuf,0 ;place the current bit 



decfsz BitCount,f 

goto GetaBit 

goto EndData 

EndData 

Outputs 

btfss DataBuf,2 

goto ValidData 

btfsc DataBuf,l 

goto MAIN 



ValidData 

movf DataBuf,W 
movwf OUT 
return 



;update number of bits to go 
;and get the next one 
;but Wrap up if done 

;validate, move data from buffer to control 

;call for heat? 
;ifno,dataOK 
;if yes, call for A/C? 

;ignore simultaneous calls for heat and cool 
SET OUTPUT CONTROL 
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%/\0 

HiTime ;HiTime times high level in units of lOus 

;until transistion to low level is found. 



clrt 


Timex 


;reset timer 


btfss 


Input 


;test com line for high level 


retlw 


0x01 


transition to low occurred -normal exit 


nop 




;add lus 


btfss 


Input 


;test com line for high level 


retlw 


0x01 


transition to low occurred -normal exit 


btfss 


Input 


;test com line for high level 


retlw 


0x01 


transition to low occurred -normal exit 


incfsz 


Timex,f 


;add a 10 us time unit to timer 


goto 


Hitest 


;and continue checking input 


retlw 


0x00 


;exit with time exceeded code 



LoTime 
lOus 



Lotest 



;LoTime times low input level in units of 
;until transistion to high level is found. 



clrf 


Timex 


;reset timer 


btfsc 


Input 


;test com line for low level 


retlw 


0x01 


transition to high occurred -normal exit 


nop 




;add lus 


btfsc 


Input 


test com line for low level 


retlw 


0x01 


transition to high occurred -normal exit 


btfsc 


Input 


test com line for low level 


retlw 


0x01 


transition to high occurred -normal exit 


incfsz 


Timex,f 


;add a 10 us time unit to timer 


goto 


Lotest 


;and continue checking input 


retlw 


0x00 


;exit with time exceeded code 
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9/io 



100000000000FFOFFFOFFFOFFFOFFFOFFFOFFFOF8E 

10001000FFOFFFOFFFOFFFOFFFOFFFOFFFOF4BOA29 

1000200043006F007000790072006900670068008B 

1000300074002000320030003000330020006200E5 

1000400079002000440048005300000020004300D5 

1000500038002D003000380030003500300033000B 

1000600020004200410053004500000020006600CF 

100070006F007200200043004F004D004600590001 

100080002D0053005400410054002000280054006B 

100090004D00290000009F0C02006600200C0600A5 

1000A0008307550A69006800040083065F0A080593 

1000BOOOOAOC29007800860546040604260404007C 

1000C00083090807670AE902730A08048604 180608 

1000D000260518072604580646055807460438061C 

1000E0000605380706047D095F0A200C34007500F8 

1000FOOOF502780AF402770A0108400C3600750907 

10010000F6027FOAFF087800A607830A030C320074 

100110007100C509D1014306830A800C90000307D2 

10012000830AACOC90000306830AD009D101430670 

10013000830A280C90000307830A3C0C90000306F6 

10014000830AC509D101'4306830A280C90000307DE 

10015000830A3COC90000307B60A550C9000030775 

10016000830A730C90000307BB0A830A7 803180400 

10017000F202950AC00A78031805F202950AC00A2D 

100180005807C40A3806830AFF087000A60701084A 

100190000000A6070108A6070108F003C60A000828 

1001A0007000A60601080000A6060108A6060108CO 

0601BOOOF003D10A000873 

021FFE00EE0FE4 

00000001FF 
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:1000000OO0000F2882O76434OA344320382O352O4A 
:100010006220342031203120392034200020A001FA 
: 100020008 50 107309F00031 383 16203085003D308 3 
: 100030008 6008 11 38 3 1203 138 501 8601 DEO 1DE0A2 7 
: 100040000515851 5D90101301C22A10002301C22A2 
: 10005000DOOF2B2814 30FB0003301C22DOOF312886 
: 100060000301FCOOOF30D300D80088200530A02009 
:10007000DE0B4628831203134E22712172223C307C 
: 10008000A020B622B020722278 30DEOOB6225620AO 
: 100O9O0OBO2OA11D4D28A1 11522858 1953285818D5 
:1000A0005328D81C72226620A5203828A0112012BF 
: 1000B0007B082A0203195D2861287C082B0203199A 
: 1 OOOCOOOO 8 00031 8A0 1503 1C20 1608002 11C78281E 
: 1000DOOOA0188628201C7228201A8A2820198A280D 
:1000E00020108728201E8A2820198A282014872873 
: 1000F000A11C902820187028A01D822820198A2869 
:10010000A0146728A01C8A2820198A28A010BF3094 
:10011000D4002015201D0800D40B08002011080071 
:100120002010A0108728D30B98281430D300DA238E 
:100130002030DA00DB01DB0B9B28OA0B9A28013434 
:10014000DF009320DFOBA12808002830D5000B2307 
: 100 15000932 OD50BA728D80B08003C30D800CC2B17 
: 100160004 330B0004F30B1004D30B2004630B300E4 
: 100170005930B4002030B50054 30B6004 530B700D7 
: X00180004D30B8005030B9002030BAOOBBOOBC0080 
:100190004D30C0002A082E2271080319D128710899 
:1001A0002322720823226F30C1006430C200653000 
: 1001BOOOC3003A30C4004F30C5004630C600463058 
: 1O01CO0OC7002O30C800C9OOCA00CB00CC0OCDO059 
: 1001DOOOCEOOCFOOD42226082E2270080319F22860 
: 1001E0002322BB007008031DF82871080319FB289F 
:1001F00071082322BC00031372082322BD002E3095 
:10020000BE003030A71D05293530BF002I1C132941 
:100210004830C5006530C6006130C7007430C80082 
: 10022000201837292E29A11C20294 330C5006F3002 
: 10023000C6006F30C7006C30C800A01837292E29BF 
: 10024000211D2E294630C5006130C6006E30C70022 
: 100250002030C8004F30C9004E30CAOOA01E3629D9 
:100260005730CD007230CE006D30CF0008006930BD 
: 10027000C9006E30CA006730CB002E292A30B0008A 
:100280005330B1004530B2005430B3002A30B400CE 
:100290002030B5002030B500COOOC100C200C3004E 
:1002AOOOC400C500C600C700C800C900CAOOCB0012 
:1002B0000800A01B66295230B0004130B10049301F 
: 1002COOOB2005330B3004 530B4 004A294C30B0007E 
: 1002 D0004F30B1 0057 30B2004 530B3005230B4 0057 
: 1002E0004A292A30B0002030B1004330B2006F30CC 
:1002FOOOB3006D30B4006630B5007930B6005330CD 
:10030000B70074 30B8006130B90074 30BA002030E2 
:10031000BB005430BC004D30BD002030BE002A3040 
:10032000BF002030COOOC1004130C2003530C300E2 
:100330003030C4003030C5002030C6004330C70024 
:100340006F30C8006E30C90074 30CA007230CB0004 
: 100350006F30CC006C30CD002030CE002030CF008C 
: 100360000800A1152030C000C100C2004630C30003 
: 10037.0004 130C4004E30C5002030C6004F30C700A9 
; 1O038O004E30C8002030C90OCAOOCB00CC00763007 



to 

:10039000CD003530CE006230CF00501 908004 1301A 
:1003AOOOC7005530C8005430C9004F30CA0008009B 
: 1003B0002030COOOC100C2004630C3004 530C40036 
: 1003C0004130C50054 30C6002030C7004D30C80051 
:1003D0006F30C90064 30CA006530CB002030CC00DB 
:1003EOOOCDOOCEOOCF0050180800D01C002A4 330AA 
:1003FOOOC3004F30C4004F30C5004C30C600080069 
: 100400002030C3004F30C4004630C5004630C6001F 
:10041000080063169B008312500883169A001C154F 
: 100420008B1355309O00AA309D009C148B179C188F 
:10043000172A1C118312080083169B001C141A082B 
:100440008312D0000800F700093C031C282A2B2A3D 
:100450007708373E08007708303E0800F600F001C4 
:10046000F101F201F301F40173080220F60203180E 
:10047000492A703084007308840774088000730868 
:100480000220F6077308013C03194B2AF30AF40112 
: 1004 9000342AF4 0A342A7 608 F2000800B022B02286 
:1004AOOOB022B5X00510AB223830A5009822A52275 
:1004BOOOB0223830A5009822A522AB223830A50002 
:1004C0009822A522AB222830A5009822A522AB2293 
:1004D000283090220C309022013090220630902259 
: 1004 EOOOB022080005108510AB2280309022 851 4C0 
: 1004 FOOOAB22303084000008831 39022 3F30040286 
: 10O50OOO0319882A4 F3004 02031 9080084 0A7B2A41 
:100510008510AB22C03090228514840AAB227B2A3E 
: 10052000A5009822A522A50E9822A522AB2208009C 
: 100530008513251A85170513A51A05178613251B7C 
: 1005400086170613A51B06170800051400000000F7 
: 100550000510AB22080038 30A300A30BAD2A080019 
: 100560002930A400AB22A40BB22A0800AC01AA01D6 
:10057000AB01051 100008511851 50830ACOOAB01F9 
: 10058000CA222B08AAOOAA030430ACOOAB01CA227D 
:1005900005150800ABOD8511000085152B10851A77 
:1005A0002B14ACOBCA2A0800F522203EA60000231B 
: 1005B0002808A6072A082A072A07A7002B08AA004 6 
:1005COOOF522AB0000232808AB072A08023C0318D9 
: 1 0 0 5 DOO 0 EA2 AAB0A2 B 1 EE E2 AA6 0 A2 B 1 2 2 B 0 8 A7 0 7 2 3 
:1005E000271E0800A60A271208002A082A07AA07B9 
:1005F00000232A082A07AA0728082807280708002E 
:100600000530A801A80AAA0203190A2B0318022B15 
:10061000A803AA070800A013061C362B861E692B08 
: 10062000061E682B861D172B061DBC2B08000130EB 
:100630001C227121B12I7222D1231E30DC009320B3 
:1006400086192A2BDCOB1F2B0430D0062017B12172 
:1006500072221D2B3C30DC009320861D242BDCOBEA 
:100660002C2BA115DCOA201F08005B2B01301C225B 
:100670007121D8217222D1231E30DC00932006186C 
: 10068000512BDCOB3E2B50184 92BD0184C2B5014FF 
: 100690004 D2B0330O0064D2BD0102017D8217222BD 
:1006A0003C2B5030DC009320061C4 32BDCOB532BDF 
:1006BOOODCOA201F080020130730A1045006A10601 
:1006C00001300922A115A01AFB03A012D9010800CC 
:1006DOOOA017A1157B08AAOOA01AAA037C08ABOOEA 
:1006EOOOB0203E217222D1231430DC009320A01BC5 
: 1006F0007E2B861AA22BDC0B762B822B061AA22BC2 
:10070000DCOB762B63230430A01B8D2BFC077C1E97 
:10071000992BFBOAFC017B13992BFC020318992BE4 

: 100720000C30FC000130FB020318992BFB01FBOA83 

: 10073000FC0120177B08AA007C08ABOOB0205921DF 

: 100740007222742B5030DC009320861AA92BA01340 

:10b7S000822B061AAD2BA017822BDCOBA42BDCOAF4 

:10076000201F080020137B08D00002 3009227C08DB 

:10077000D0000330092208002030A006A01EC92B9B 

:10078000FBOA5A30D900B622B0207222A1153C30A3 

:10079000A028FB03D901C32BA01E0800D90B080019 

: 1007A000BC2B0A30A0200800A030O200AB22D20B14 

:1007B000062B08008614F530D700F423F123201837 

:1007COOOE32BEF23E42BED23A018E82BEF23EA2BF8 

:1007D000ED23ED2B2119ED2BEF2B8614F22386143C 

:1007EOOOF22386105330D7000000F62BD70BF42BE2 

:0207F0000800FF 

:02400E00503F21 

:00000001FF 
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